﻿<%
Function color1(s)
'------------颜色代码转换--------------
If Color1="01" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="0"
If Color1_blue="" Then Color1_blue="139"
If Color1_hex="" Then Color1_hex="00008B"	'蓝黑
ElseIf Color1="02" Then
If Color1_red="" Then Color1_red="160"
If Color1_green="" Then Color1_green="32"
If Color1_blue="" Then Color1_blue="240"
If Color1_hex="" Then Color1_hex="A020F0"	'紫蓝
ElseIf Color1="03" Then
If Color1_red="" Then Color1_red="218"
If Color1_green="" Then Color1_green="112"
If Color1_blue="" Then Color1_blue="214"
If Color1_hex="" Then Color1_hex="DA70D6"	'兰花
ElseIf Color1="04" Then
If Color1_red="" Then Color1_red="238"
If Color1_green="" Then Color1_green="130"
If Color1_blue="" Then Color1_blue="238"
If Color1_hex="" Then Color1_hex="EE82EE"	'紫红
ElseIf Color1="05" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="0"
If Color1_blue="" Then Color1_blue="255"
If Color1_hex="" Then Color1_hex="FF00FF"	'品红
ElseIf Color1="06" Then
If Color1_red="" Then Color1_red="176"
If Color1_green="" Then Color1_green="48"
If Color1_blue="" Then Color1_blue="96"
If Color1_hex="" Then Color1_hex="B03060"	'栗色
ElseIf Color1="07" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="192"
If Color1_blue="" Then Color1_blue="203"
If Color1_hex="" Then Color1_hex="FFC0CB"	'粉红色
ElseIf Color1="08" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="0"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="FF0000"	'红色
ElseIf Color1="09" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="165"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="FFA500"	'橙黄
ElseIf Color1="10" Then
If Color1_red="" Then Color1_red="165"
If Color1_green="" Then Color1_green="42"
If Color1_blue="" Then Color1_blue="42"
If Color1_hex="" Then Color1_hex="A52A2A"	'棕色
ElseIf Color1="11" Then
If Color1_red="" Then Color1_red="210"
If Color1_green="" Then Color1_green="105"
If Color1_blue="" Then Color1_blue="30"
If Color1_hex="" Then Color1_hex="D2691E"	'巧克力
ElseIf Color1="12" Then
If Color1_red="" Then Color1_red="210"
If Color1_green="" Then Color1_green="180"
If Color1_blue="" Then Color1_blue="140"
If Color1_hex="" Then Color1_hex="D2B48C"	'黄褐色
ElseIf Color1="13" Then
If Color1_red="" Then Color1_red="245"
If Color1_green="" Then Color1_green="222"
If Color1_blue="" Then Color1_blue="179"
If Color1_hex="" Then Color1_hex="F5DEB3"	'麦黄
ElseIf Color1="14" Then
If Color1_red="" Then Color1_red="245"
If Color1_green="" Then Color1_green="245"
If Color1_blue="" Then Color1_blue="220"
If Color1_hex="" Then Color1_hex="F5F5DC"	'米色
ElseIf Color1="15" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="215"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="FFD700"	'金黄
ElseIf Color1="16" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="FFFF00"	'黄色
ElseIf Color1="17" Then
If Color1_red="" Then Color1_red="127"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="7FFF00"	'黄绿色
ElseIf Color1="18" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="00FF00"	'绿色
ElseIf Color1="19" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="100"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="006400"	'深绿色
ElseIf Color1="20" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="255"
If Color1_hex="" Then Color1_hex="00FFFF"	'青色
ElseIf Color1="21" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="0"
If Color1_blue="" Then Color1_blue="255"
If Color1_hex="" Then Color1_hex="0000FF"	'蓝色
ElseIf Color1="22" Then
If Color1_red="" Then Color1_red="190"
If Color1_green="" Then Color1_green="190"
If Color1_blue="" Then Color1_blue="190"
If Color1_hex="" Then Color1_hex="BEBEBE"	'灰色
ElseIf Color1="23" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="0"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="000000"	'黑色
ElseIf Color1="24" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="250"
If Color1_blue="" Then Color1_blue="250"
If Color1_hex="" Then Color1_hex="FFFAFA"	'雪白
ElseIf Color1="25" Then
If Color1_red="" Then Color1_red="240"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="255"
If Color1_hex="" Then Color1_hex="F0FFFF"	'蔚蓝色
ElseIf Color1="26" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="255"
If Color1_hex="" Then Color1_hex="FFFFFF"	'白色
End If
end function

Function color2(s)
'--------------------------------------
If Color2="01" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="0"
If BackgroundColor_blue="" Then BackgroundColor_blue="139"
If BackgroundColor_hex="" Then BackgroundColor_hex="00008B"	'蓝黑
ElseIf Color2="02" Then
If BackgroundColor_red="" Then BackgroundColor_red="160"
If BackgroundColor_green="" Then BackgroundColor_green="32"
If BackgroundColor_blue="" Then BackgroundColor_blue="240"
If BackgroundColor_hex="" Then BackgroundColor_hex="A020F0"	'紫蓝
ElseIf Color2="03" Then
If BackgroundColor_red="" Then BackgroundColor_red="218"
If BackgroundColor_green="" Then BackgroundColor_green="112"
If BackgroundColor_blue="" Then BackgroundColor_blue="214"
If BackgroundColor_hex="" Then BackgroundColor_hex="DA70D6"	'兰花
ElseIf Color2="04" Then
If BackgroundColor_red="" Then BackgroundColor_red="238"
If BackgroundColor_green="" Then BackgroundColor_green="130"
If BackgroundColor_blue="" Then BackgroundColor_blue="238"
If BackgroundColor_hex="" Then BackgroundColor_hex="EE82EE"	'紫红
ElseIf Color2="05" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="0"
If BackgroundColor_blue="" Then BackgroundColor_blue="255"
If BackgroundColor_hex="" Then BackgroundColor_hex="FF00FF"	'品红
ElseIf Color2="06" Then
If BackgroundColor_red="" Then BackgroundColor_red="176"
If BackgroundColor_green="" Then BackgroundColor_green="48"
If BackgroundColor_blue="" Then BackgroundColor_blue="96"
If BackgroundColor_hex="" Then BackgroundColor_hex="B03060"	'栗色
ElseIf Color2="07" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="192"
If BackgroundColor_blue="" Then BackgroundColor_blue="203"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFC0CB"	'粉红色
ElseIf Color2="08" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="0"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="FF0000"	'红色
ElseIf Color2="09" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="165"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFA500"	'橙黄
ElseIf Color2="10" Then
If BackgroundColor_red="" Then BackgroundColor_red="165"
If BackgroundColor_green="" Then BackgroundColor_green="42"
If BackgroundColor_blue="" Then BackgroundColor_blue="42"
If BackgroundColor_hex="" Then BackgroundColor_hex="A52A2A"	'棕色
ElseIf Color2="11" Then
If BackgroundColor_red="" Then BackgroundColor_red="210"
If BackgroundColor_green="" Then BackgroundColor_green="105"
If BackgroundColor_blue="" Then BackgroundColor_blue="30"
If BackgroundColor_hex="" Then BackgroundColor_hex="D2691E"	'巧克力
ElseIf Color2="12" Then
If BackgroundColor_red="" Then BackgroundColor_red="210"
If BackgroundColor_green="" Then BackgroundColor_green="180"
If BackgroundColor_blue="" Then BackgroundColor_blue="140"
If BackgroundColor_hex="" Then BackgroundColor_hex="D2B48C"	'黄褐色
ElseIf Color2="13" Then
If BackgroundColor_red="" Then BackgroundColor_red="245"
If BackgroundColor_green="" Then BackgroundColor_green="222"
If BackgroundColor_blue="" Then BackgroundColor_blue="179"
If BackgroundColor_hex="" Then BackgroundColor_hex="F5DEB3"	'麦黄
ElseIf Color2="14" Then
If BackgroundColor_red="" Then BackgroundColor_red="245"
If BackgroundColor_green="" Then BackgroundColor_green="245"
If BackgroundColor_blue="" Then BackgroundColor_blue="220"
If BackgroundColor_hex="" Then BackgroundColor_hex="F5F5DC"	'米色
ElseIf Color2="15" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="215"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFD700"	'金黄
ElseIf Color2="16" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFFF00"	'黄色
ElseIf Color2="17" Then
If BackgroundColor_red="" Then BackgroundColor_red="127"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="7FFF00"	'黄绿色
ElseIf Color2="18" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="00FF00"	'绿色
ElseIf Color2="19" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="100"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="006400"	'深绿色
ElseIf Color2="20" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="255"
If BackgroundColor_hex="" Then BackgroundColor_hex="00FFFF"	'青色
ElseIf Color2="21" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="0"
If BackgroundColor_blue="" Then BackgroundColor_blue="255"
If BackgroundColor_hex="" Then BackgroundColor_hex="0000FF"	'蓝色
ElseIf Color2="22" Then
If BackgroundColor_red="" Then BackgroundColor_red="190"
If BackgroundColor_green="" Then BackgroundColor_green="190"
If BackgroundColor_blue="" Then BackgroundColor_blue="190"
If BackgroundColor_hex="" Then BackgroundColor_hex="BEBEBE"	'灰色
ElseIf Color2="23" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="0"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="000000"	'黑色
ElseIf Color2="24" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="250"
If BackgroundColor_blue="" Then BackgroundColor_blue="250"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFFAFA"	'雪白
ElseIf Color2="25" Then
If BackgroundColor_red="" Then BackgroundColor_red="240"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="255"
If BackgroundColor_hex="" Then BackgroundColor_hex="F0FFFF"	'蔚蓝色
ElseIf Color2="26" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="255"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFFFFF"	'白色
End If
'--------------------------------------
end function
%>